-- card: 3209 from stack: in
-- bmap block id: 4416
-- flags: 0000
-- background id: 2753
-- name: Region XCMDs
----- HyperTalk script -----




-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=173 top=111 right=219 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ClickInRegion
----- HyperTalk script -----
on mouseUp
  if ClickInRegion(card field "theRegion") is true then
    play "Inside"
    FlashRegion card field "theRegion"
  else
    if ClickInRegion(card field "theRegion") is false then
      play "Outside"
      FlashRegion card field "theRegion"
    else
      if ClickInRegion(card field "theRegion") is empty then
        play "harpsichord"
        put "No region specified" into msg
        FlashRegion card field "theRegion"
      end if
    end if
  end if
  put the heapspace into bkgnd field "theHeapspace"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=268 right=289 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flash Region
----- HyperTalk script -----
on mouseUp
  FlashRegion card field "theRegion"
  put the heapspace into bkgnd field "theHeapspace"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=389 top=291 right=313 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NewRegion
----- HyperTalk script -----
on mouseUp
  put NewRegion() into card field "theRegion"
  put the heapspace into bkgnd field "theHeapspace"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=173 top=221 right=338 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GetClickedRegions
----- HyperTalk script -----
on mouseUp
  global outputContainer
  put "card field " & quote & "regionNames" & quote into REGNContainer
  put  "card field " & quote & "ClickedRegions" & quote into outputContainer
  put empty into card field "ClickedRegions"
  put zero into card field "numRegions"

  GetClickedRegions REGNContainer, outputContainer
  put the number of lines in card field "regionNames" into totNum

  if card field "ClickedRegions" is not empty then
    put the number of lines in card field "ClickedRegions" into numRegions
    put numRegions into card field "numRegions"

    repeat with count = 1 to numRegions
      play "Inside"
      FlashRegion line count of card field "ClickedRegions"
    end repeat
  else
    play "Outside"
    repeat with count = 1 to totNum
      FlashRegion line count of card field "regionNames"
    end repeat
  end if

end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=387 top=245 right=267 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GetRegionNames
----- HyperTalk script -----
on mouseUp
  GetRegionNames "card field " & quote & "regionNames" & quote
  put the heapspace into bkgnd field "theHeapspace"

end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=8 top=76 right=208 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 162
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: regionNames
----- HyperTalk script -----
on mouseUp
  put lineContent("card field " & quote & "regionNames" & quote) into temp
  if temp is not empty then put temp into card field "theRegion"
end mouseUp


-- part 13 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=174 top=79 right=103 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 162
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: theRegion


-- part 15 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=8 top=238 right=338 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 162
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ClickedRegions
----- HyperTalk script -----
on mouseUp
  put lineContent() into temp
  if temp is not empty then put temp into card field "theRegion"
end mouseUp


-- part 16 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=126 top=217 right=235 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: numRegions


-- part contents for background part 26
----- text -----
page 4

-- part contents for background part 25
----- text -----
Region XCMDs

-- part contents for background part 30
----- text -----
358800

-- part contents for card part 13
----- text -----
Bone

-- part contents for card part 16
----- text -----
2

-- part contents for card part 12
----- text -----
heart
triangle
roundE
box
nose
stomach
clock
Bone

-- part contents for card part 15
----- text -----
nose
stomach